# ============================== SETUP ===============================
rm(list = ls())
options(scipen = 999)
setwd("~/Dropbox/Wayne-Ying/White_Nationalist_Recruitment/replication/codes")
library(ggplot2)

df <- read.csv("../datasets/input/followerdistribution.csv", stringsAsFactors = FALSE)
df2 <- subset(df, leaders_followed >= 4)
p2 <- ggplot(df2, aes(factor(leaders_followed), accounts_to_be_scraped)) +
  geom_col(width = 0.7) +
  geom_text(aes(label = accounts_to_be_scraped), vjust = -0.25, size = 3) +
  labs(x = "Numbers of Leaders' Accounts Followed (>= 4)", y = "Accounts to be Scraped") +
  theme_minimal(base_size = 12)
ggsave("../plots/FigureA1.pdf", p2, width = 8, height = 5)